home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 1 / BBS in a box - Trilogy I.iso / Files / Music / M / M5Mac ƒ / Scripts folder / JCR200.PAR < prev    next >
Encoding:
Text File  |  1992-06-26  |  3.7 KB  |  143 lines  |  [TEXT/M5Mc]
  1. COM --------------JCR200----------------------------------;
  2. COM TROMPETTE AVEC CONTROLE INDEPENDANT  DES HARMONIQUES;
  3. COM ------------------------------------------------------;
  4. SAM 25600;
  5. INS 0 1;
  6. CNV P6=HTZ(P6);
  7. CNV P5=0.01*P5*P6;
  8. CNV P7=htz(p7);
  9. RAN P5 P7 B2 P30 P29 P28;com fm aleatoire;
  10. END;
  11. COM ------------------------------------------------------;
  12. INS 0 2;
  13. CNV P5=P5*8;
  14. CNV P6=HTZ(P6);
  15. CNV P7=dur(p4);
  16. OSC P5 P7 B3 F2 P30;
  17. AD2 P6 B2 B4;
  18. IOS B3 B4 B3 F1 P29;
  19. OUT B3;
  20. END;
  21. COM ------------------------------------------------------;
  22. INS 0 3;
  23. CNV P5=P5*8;
  24. CNV P6=HTZ(P6);
  25. CNV P7=dur(p4);
  26. OSC P5 P7 B3 F3 P30;
  27. AD2 P6 B2 B4;
  28. IOS B3 B4 B3 F1 P29;
  29. OUT B3;
  30. END;
  31. COM -------------------------------------------------------;
  32. INS 0 4;
  33. CNV P5=P5*8;
  34. CNV P6=HTZ(P6);
  35. CNV P7=dur(p4);
  36. OSC P5 P7 B3 F4 P30;
  37. AD2 P6 B2 B4;
  38. IOS B3 B4 B3 F1 P29;
  39. OUT B3;
  40. END;
  41. COM --------------------------------------------------------;
  42. INS 0 5;
  43. CNV P5=P5*8;
  44. CNV P6=HTZ(P6);
  45. CNV P7=dur(p4);
  46. OSC P5 P7 B3 F5 P30;
  47. AD2 P6 B2 B4;
  48. IOS B3 B4 B3 F1 P29;
  49. OUT B3;
  50. END;
  51. COM --------------------------------------------------------;
  52. INS 0 6;
  53. CNV P5=P5*8;
  54. CNV P6=HTZ(P6);
  55. CNV P7=dur(p4);
  56. OSC P5 P7 B3 F6 P30;
  57. AD2 P6 B2 B4;
  58. IOS B3 B4 B3 F1 P29;
  59. OUT B3;
  60. END;
  61. COM --------------------------------------------------------;
  62. INS 0 7;
  63. CNV P5=P5*8;
  64. CNV P6=HTZ(P6);
  65. CNV P8=P8/1000;
  66. CNV P10=P10/1000;
  67. CNV P9=P4-P8-P10;com temps de sustain= duree-attaque-chute;
  68. CNV P8=0.25*dur(P8);
  69. CNV P9=0.25*dur(P9);
  70. CNV P10=0.25*dur(P10);
  71. ENV P5 F7 B3 P8 P9 P10 P30;
  72. AD2 P6 B2 B4;
  73. IOS B3 B4 b3 F1 P29;
  74. OUT B3;
  75. END;
  76. COM --------------------------------------------------------;
  77. INS 0 8;
  78. CNV P5=P5*8;
  79. CNV P6=HTZ(P6);
  80. CNV P8=P8/1000;
  81. CNV P10=P10/1000;
  82. CNV P9=0.25;com temps de sustain= duree-attaque-chute;
  83. CNV P8=0.25*dur(p4*P8/(p8+p10));
  84. CNV P10=0.25*dur(P4*p10/(p8+p10));
  85. ENV P5 F7 B3 P8 P9 P10 P30;
  86. AD2 P6 B2 B4;
  87. IOS B3 B4 b3 F1 P29;
  88. OUT B3;
  89. END;
  90. COM ------------------------------------------------------------------------;
  91. GEN 0 2 1 512 1 1;
  92. GEN 0 1 2 512 0 0 .001 10 .282 26 .112 40 .178 429 .159 473 .008 500 .001 512;
  93. GEN 0 1 3 512 0 0 .001 19 .5 434 .355 454 .016 490 .001 512;
  94. GEN 0 1 4 512 0 0 .001 23 .55 435 .001 512;
  95. GEN 0 1 5 512 0 0 .001 10 .005 19 .224 418 .224 431 .178 458 .001 512;
  96. GEN 0 1 6 512 0 0 .001 10 .009 21 .089 33 .022 45 .022 73 .112 226 .178 264
  97. .071 345 .062 468 .001 512;
  98. GEN 0 1 7 512 0 0 .993 128 .999 256 0 384 0 512;
  99. COM ------------------------------------------------------------------------;
  100. NOT 1 1 .17 .6 554 10;
  101. NOT 1 7 .17 200 554 0 7.5 0 140;
  102. NOT 1 7 .17 160 1108 0 7.5 0 110;
  103. NOT 1 7 .17 350 1662 0 12 0 85;
  104. NOT 1 7 .15 310 2216 0 14 0 80;
  105. NOT 1 7 .14 160 2770 0 24 0 65;
  106. NOT 1 7 .14 200 3324 0 27 0 60;
  107. NOT 1 7 .14 99 3878 0 32 0 60;
  108. NOT 1 7 .14 200 4432 0 30 0 60;
  109. NOT 1 7 .14 80 4986 0 35 0 60;
  110. COM ----------------------------------------------;
  111. NOT 3 1 .15 .6 293 10;
  112. NOT 3 8 .15 50 293 0 10 0 140;
  113. NOT 3 7 .15 80 586 0 10 0 110;
  114. NOT 3 7 .15 100 879 0 12 0 85;
  115. NOT 3 7 .15 175 1172 0 17 0 80;
  116. NOT 3 7 .15 180 1465 0 25 0 65;
  117. NOT 3.01 7 .15 150 1758 0 30 0 60;
  118. NOT 3.01 7 .15 100 2051 0 35 0 60;
  119. NOT 3.01 7 .13 80 2344 0 35 0 60;
  120. NOT 3.01 8 .14 50 2637 0 40 0 100;
  121. NOT 3.01 8 .14 80 2930 0 40 0 100;
  122. NOT 3.01 8 .14 140 3223 0 45 0 100;
  123. NOT 3.01 8 .13 90 3516 0 45 0 100;
  124. NOT 3.01 8 .13 45 3809 0 40 0 100;
  125. NOT 3.01 8 .13 25 4102 0 45 0 90;
  126. COM ----------------------------------------------;
  127. NOT 5 1 .4 .4 784 20;
  128. NOT 5 2 .4 800 784;
  129. NOT 5 3 .4 800 1568;
  130. NOT 5 4 .4 800 2352;
  131. NOT 5 5 .4 800 3136;
  132. NOT 5 6 .4 800 3920;
  133. COM ----------------------------------------------;
  134. NOT 6 1 .7 .4 830 20;
  135. NOT 6 2 .7 1400 830;
  136. NOT 6 3 .7 1000 1660;
  137. NOT 6 4 .7 1000 2490;
  138. NOT 6 5 .7 1000 3320;
  139. NOT 6 6 .7 1000 4150;
  140. COM ----------------------------------------------;
  141. TER 8;
  142.  
  143.